home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 45
/
Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso
/
Aminet
/
gfx
/
edit
/
amifig31_68k.lha
/
AmiFIG3.1_68000
/
Rexx
/
test.rx
Wrap
Text File
|
1999-07-18
|
1KB
|
94 lines
/*rx
* $VER: test.rx 1.0 (28.2.99)
* test.rx ... ARexx program to test AmiFIG's ARexx port.
*/
Options results
if ~show(ports, "AMIFIG.0") then do
return
end
say "got port"
address("AMIFIG.0")
Clear "test.fig"
SetLineWidth 1
SetJoinStyle 1
SetCapStyle 1
SetDepth 10
SetUnfilled
SetPenColor 0
SetBaseSystem imperial
DrawRectBox 1 1.5 3 4
SetBaseSystem metric
DrawRectBox 1 1.5 3 4
SetBaseSystem dpi
StartPolyline 0 0
StartPolygon 0 0
AddLineSegment 100 100
EndLine 100 200
DrawCircle 100 100 20.3
SetEllipseAngle 380.2
DrawEllipse 100 100 40.6 20.3
SetZoomScale 100.0
SetFontSize 16
SetTextAdjustment 0
SetRigidTextFlag 1
SetSpecialTextFlag 1
SetTextAngle 0
'DrawText 30 160 "Hello World"'
SetTextAngle 10
'DrawText 30 180 "Hello World"'
DrawArc 20 230 10 280 80 310
DrawClosedArc 150 200 150 300 310 360
SetLineWidth 10
DrawRectBox 20 30 210 210
SetZoomScale 150.0
SetLineWidth 5
SetArrowStyle 2 1
StartPolyline 0 0
EndLine 100 200
StartInterpSpline 10 10
AddSplineSegment 100 300
AddSplineSegment 100 200
EndSpline 200 200
SaveFile "ram:test.fig"
"ExportFile ram:test.iff iff 10 10 400 300"
/*DrawPicture 100 100 300 240 "bugs.gif"*/
SetLineWidth 3
SetPenColor 1
SetFillColor 31
SetFillShade 36
StartPolyline 200 200
AddLineSegment 300 200
EndLine 300 400
SetPattern 1
StartPolyline 60 340
AddLineSegment 100 420
EndLine 250 350
say AMIFIG.LASTERROR